Data

Kualitas Udara Indonesia

Map

Kualitas Udara Indonesia

---
title: "AirQ_Dashboard"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
    theme: yeti
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(DT)
```

```{r}
# data kabupaten kota di Indonesia
dt_kabko <- read.csv2("https://raw.githubusercontent.com/dsciencelabs/dataset/master/kabko_id.csv")

# data dummy kualitas udara di kabko
n_kabko <- nrow(dt_kabko)                # banyaknya kabupaten kota
CO <- rnorm(n_kabko, mean = 5, sd = 2)   # CO (karbon monoksida) 
CO2<- rnorm(n_kabko, mean = 30, sd = 10) # NO2 (nitrogen oksida) 
H2 <- rnorm(n_kabko, mean = 10, sd = 2)  # H2 (Nitrogen) 

# Buat data frame kualitas udara harian
data <- data.frame(dt_kabko, CO, CO2, H2)
```


Data {data-orientation=rows}
=======================================================================
  
### Kualitas Udara Indonesia {data-height=520}
  
```{r}
datatable(data,
          options=list(scrollX=TRUE),
          caption = htmltools::tags$caption(
            style = 'caption-side: bottom; text-align: center;',
            'Table: ', htmltools::em('Kualitas Udara Indonesia')
          ))
```

Map {data-orientation=rows}
=======================================================================

### Kualitas Udara Indonesia {data-height=520}

```{r}
library(plotly)

# Buat peta Plotly
map <- data %>%
  plot_ly(
    x = ~long,
    y = ~lat,
    type = "scattermapbox",
    mode = "markers",
    text = ~paste("Kabupaten Kota: ", kabko, "<br>CO: ", CO),
    marker = list(size = 7, color = ~CO)
  ) %>%
  layout(
    mapbox = list(
      center = list(lat = -2, lon = 118),
      zoom = 4,
      style = "open-street-map"
    ),
    title = "Kualitas Udara di Indonesia",
    geo = list(
      scope = "asia",
      showland = TRUE
    )
  )

map
```